home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / c / amivogl-1.03.lzh / vogl / src / sunfort / fvcalls.c.Z / fvcalls.c
Encoding:
C/C++ Source or Header  |  1991-06-21  |  1.3 KB  |  178 lines
  1. #include "vogl.h"
  2.  
  3. /*
  4.  * v4f_
  5.  */
  6. void
  7. v4f_(vec)
  8.     float    vec[4];
  9. {
  10.     vcall(vec, 4);
  11. }
  12.  
  13. /*
  14.  * v3f_
  15.  */
  16. void
  17. v3f_(vec)
  18.     float    vec[3];
  19. {
  20.     vcall(vec, 3);
  21. }
  22.  
  23. /*
  24.  * v2f_
  25.  */
  26. void
  27. v2f_(vec)
  28.     float    vec[2];
  29. {
  30.     vcall(vec, 2);
  31. }
  32.  
  33. /*
  34.  * v4d_
  35.  */
  36. void
  37. v4d_(vec)
  38.     double    vec[4];
  39. {
  40.     float    v[4];
  41.  
  42.     v[0] = vec[0];
  43.     v[1] = vec[1];
  44.     v[2] = vec[2];
  45.     v[3] = vec[3];
  46.  
  47.     vcall(v, 4);
  48. }
  49.  
  50. /*
  51.  * v3d_
  52.  */
  53. void
  54. v3d_(vec)
  55.     double    vec[3];
  56. {
  57.     float    v[3];
  58.  
  59.     v[0] = vec[0];
  60.     v[1] = vec[1];
  61.     v[2] = vec[2];
  62.     
  63.     vcall(v, 3);
  64. }
  65.  
  66. /*
  67.  * v2d_
  68.  */
  69. void
  70. v2d_(vec)
  71.     double    vec[2];
  72. {
  73.     float    v[2];
  74.  
  75.     v[0] = vec[0];
  76.     v[1] = vec[1];
  77.  
  78.     vcall(v, 2);
  79. }
  80.  
  81. /*
  82.  * v4s_
  83.  */
  84. void
  85. v4s_(vec)
  86.     short    vec[4];
  87. {
  88.     float    v[4];
  89.  
  90.     v[0] = vec[0];
  91.     v[1] = vec[1];
  92.     v[2] = vec[2];
  93.     v[3] = vec[3];
  94.  
  95.     vcall(v, 4);
  96. }
  97.  
  98. /*
  99.  * v3s_
  100.  */
  101. void
  102. v3s_(vec)
  103.     short    vec[3];
  104. {
  105.     float    v[3];
  106.  
  107.     v[0] = vec[0];
  108.     v[1] = vec[1];
  109.     v[2] = vec[2];
  110.     
  111.     vcall(v, 3);
  112. }
  113.  
  114. /*
  115.  * v2s_
  116.  */
  117. void
  118. v2s_(vec)
  119.     short    vec[2];
  120. {
  121.     float    v[2];
  122.  
  123.     v[0] = vec[0];
  124.     v[1] = vec[1];
  125.  
  126.     vcall(v, 2);
  127. }
  128.  
  129.  
  130. /*
  131.  * v4i_
  132.  */
  133. void
  134. v4i_(vec)
  135.     int    vec[4];
  136. {
  137.     float    v[4];
  138.  
  139.     v[0] = vec[0];
  140.     v[1] = vec[1];
  141.     v[2] = vec[2];
  142.     v[3] = vec[3];
  143.  
  144.     vcall(v, 4);
  145. }
  146.  
  147. /*
  148.  * v3i_
  149.  */
  150. void
  151. v3i_(vec)
  152.     int    vec[3];
  153. {
  154.     float    v[3];
  155.  
  156.     v[0] = vec[0];
  157.     v[1] = vec[1];
  158.     v[2] = vec[2];
  159.     
  160.     vcall(v, 3);
  161. }
  162.  
  163. /*
  164.  * v2i_
  165.  */
  166. void
  167. v2i_(vec)
  168.     int    vec[2];
  169. {
  170.     float    v[2];
  171.  
  172.     v[0] = vec[0];
  173.     v[1] = vec[1];
  174.  
  175.     vcall(v, 2);
  176. }
  177.  
  178.